unit App.Action.TAppDefaultSaveAction;

interface

uses SmallStruct.Action,
  App.Action.TAppCustomeAction,
  SmallStruct.Form.TSSMessager;

type
  TAppDefaultSaveAction = class(TAppCustomeAction)
  protected
    function DoPerform(ActionContext: ISSActionContext): Boolean; override;
  end;

implementation

uses SmallStruct.Model;

{ TAppDefaultSaveAction }

function TAppDefaultSaveAction.DoPerform(ActionContext: ISSActionContext): Boolean;
begin
  Result := False;

  (ActionContext.GetRequestView.GetContext.GetParameter.GetObject(0) as ISSDataModel).ApplyModify;

  TSSMessager.ShowSaveMessage;

  Result := True;
end;

end.
